Iona Software Demo/MacWin_IonaSoftware_DemoCD.iso/pc/demo.exe/demo.DXR/00014_Click here.ls

Text File | 1996-02-23 | 546 b | 21 lines

on exitFrame
  global pathToMain, lang, spacer
  set clickhere to pathToMain & lang & spacer & "click"
  sound playFile 1, clickhere
  repeat with z = 1 to 2
    repeat with i = 2 to 4
      puppetSprite(i, 1)
      set temp to the castNum of sprite i
      set the castNum of sprite i to the number of cast ("mainHigh" & i)
      updateStage()
      repeat with c = 1 to 4000
      end repeat
      set the castNum of sprite i to temp
      updateStage()
    end repeat
    repeat while soundBusy(1)
    end repeat
  end repeat
  go("loop")
end